home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / U-Utilities / (c)u4.d64 / pica cond enlg (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  195b  |  10 lines
  1. 10 REM ENLARGED PICA
  2. 20 OPEN 4,4,6
  3. 25 PRINT#4,CHR$(27);"@";:REM CLEAR PRTR
  4. 30 PRINT#4,CHR$(27);"[215]";CHR$(1);:REM ENLARGED
  5. 35 PRINT#4,CHR$(15);:REM CONDENSED
  6. 40 CLOSE4
  7. 50 OPEN 1,4,4
  8. 60 PRINT#1,"[212]HIS IS CONDENSED-ENLARGED [208]ICA."
  9. 70 CLOSE1
  10.